home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctjja86.arc / STATEC.ARC / AUTO5.C < prev    next >
Text File  |  1985-09-18  |  665b  |  42 lines
  1. /* auto5.c - long integer math benchmark */
  2. #include "stdio.h"
  3.  
  4. static long ncount = 4000 ;
  5.  
  6. int lmath()
  7.  {
  8.      long i , j , k , l ;
  9.    static long m , n ;
  10.  
  11.     j = 6 ;    k = 2 ;
  12.     for(i=0 ; i< ncount ; i++)
  13.         {
  14.           j =  j + i + k ;
  15.           k = l + i ;
  16.           j = j + k + l ;
  17.           m = (l -i) - (k-j) - (i-6L) ;
  18.  
  19.           j = j << 1 ;
  20.  
  21.           j =  j + i + k ;
  22.           k = l + i ;
  23.           j = j + k + l ;
  24.           m = (l -i) - (k-j) - (i-6L) ;
  25.  
  26.           m = j >> 4 ;
  27.  
  28.           j =  j + i + k ;
  29.           k = l + i ;
  30.           j = j + k + l ;
  31.           m = (l -i) - (k-j) - (i-6) ;
  32.  
  33.           j = i * l ;
  34.           k = k * j ;
  35.           l = l / (i+1) ;
  36.  
  37.           n = j & 0xff ;
  38.           j = k | 0x80000001 ;
  39.      }
  40.  }
  41.  
  42.